home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 5 / QRZ Ham Radio Callsign Database - Volume 5.iso / files / mac / greyline.hqx / GrayLine Stack / GRAYLINE.MAC / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1993-12-20  |  4.2 KB  |  46 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.MAC</name>
  5.     <id>-1</id>
  6.     <cardCount>22</cardCount>
  7.     <cardID>3321</cardID>
  8.     <listID>6736</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack
  17. global utcOffset
  18. put cd fld offsetHours of card setUTC into utcOffset
  19. set userLevel to 5
  20. put hilite of cd btn "bypassMe" of cd "menu" into temp
  21. if temp = false
  22. then
  23. go card "menu"
  24. else
  25. wait 1 seconds
  26. visual dissolve
  27. go card "world map"
  28. end if
  29. end openStack
  30.  
  31. on closeStack
  32. global compFlag, selectedcountry
  33. lock screen
  34. push card
  35. put true into compflag
  36. go to card "World Map"
  37. click at the loc of bg btn "clear" of cd "World Map"
  38. click at the loc of cd btn "chooseMap" of cd "World Map"
  39. pop card
  40. unlock screen
  41. put false into compFlag
  42. put "" into selectedcountry
  43. end closeStack
  44.  
  45. function UTCtime
  46. global utcOffset, hrMin
  47. put the seconds into now
  48. put the date into today
  49. convert today to seconds
  50. subtract today from now
  51. put now into ttime
  52. subtract utcOffset * 3600 from ttime
  53. convert ttime to short time
  54. if word 2 of ttime = "AM" or word 2 of ttime = "PM" then
  55. if char 1 to 2 of ttime = "12" then put "00" into char 1 to 2 of ttime
  56. end if
  57. if word 2 of ttime = "PM" then
  58. put offset(":",ttime) - 1 into hrMin
  59. put char 1 to hrMin of ttime into temp
  60. delete char 1 to hrMin of ttime
  61. add 12 to temp
  62. put temp before ttime
  63. delete word 2 of ttime
  64. end if
  65. if word 2 of ttime = "AM" then delete word 2 of ttime
  66. return ttime
  67. end UTCtime
  68.  
  69. function UTCdate
  70. global utcOffset
  71. get the time
  72. put it into tdate
  73. convert tdate to seconds
  74. subtract utcOffset * 3600 from tdate
  75. convert tdate to short date
  76. return tdate
  77. end UTCdate
  78.  
  79.  
  80.  
  81. function DaysBetweenDates startDate, endDate
  82. convert startDate to seconds
  83. convert endDate to seconds
  84. return ((endDate - startDate)/(60*60*24))
  85. end daysBetweenDates
  86. </script>
  87.     <background id="2799" file="background_2799.xml" name="" />
  88.     <background id="2955" file="background_2955.xml" name="" />
  89.     <background id="5501" file="background_5501.xml" name="" />
  90.     <background id="11054" file="background_11054.xml" name="" />
  91.     <background id="15124" file="background_15124.xml" name="Demographics" />
  92.     <background id="18471" file="background_18471.xml" name="SchedulePage" />
  93.     <card id="3321" file="card_3321.xml" marked="false" name="menu" owner="2955" />
  94.     <card id="6655" file="card_6655.xml" marked="false" name="World Map" owner="5501" />
  95.     <card id="17872" file="card_17872.xml" marked="false" name="setUTC" owner="18471" />
  96.     <card id="7608" file="card_7608.xml" marked="false" name="Oceania" owner="2799" />
  97.     <card id="15945" file="card_15945.xml" marked="false" name="Australia" owner="15124" />
  98.     <card id="29639" file="card_29639.xml" marked="false" name="Fiji" owner="15124" />
  99.     <card id="35123" file="card_35123.xml" marked="false" name="Indonesia" owner="15124" />
  100.     <card id="63270" file="card_63270.xml" marked="false" name="New Caledonia" owner="15124" />
  101.     <card id="46081" file="card_46081.xml" marked="false" name="New Zealand" owner="15124" />
  102.     <card id="48469" file="card_48469.xml" marked="false" name="Papua New Guinea" owner="15124" />
  103.     <card id="60317" file="card_60317.xml" marked="false" name="Vanuatu" owner="15124" />
  104.     <card id="14014" file="card_14014.xml" marked="false" name="About" owner="11054" />
  105.     <card id="3712" file="card_3712.xml" marked="false" name="SQLCapture" owner="11054" />
  106.     <card id="3945" file="card_3945.xml" marked="false" name="SQLCapture" owner="11054" />
  107.     <card id="12254" file="card_12254.xml" marked="false" name="SQLCapture" owner="11054" />
  108.     <card id="12450" file="card_12450.xml" marked="false" name="SQLCapture" owner="11054" />
  109.     <card id="12688" file="card_12688.xml" marked="false" name="AboutRR" owner="11054" />
  110.     <card id="13132" file="card_13132.xml" marked="false" name="" owner="11054" />
  111.     <card id="12909" file="card_12909.xml" marked="false" name="SQLCapture" owner="11054" />
  112.     <card id="8249" file="card_8249.xml" marked="false" name="Order" owner="11054" />
  113.     <card id="9043" file="card_9043.xml" marked="false" name="SQLCapture" owner="11054" />
  114.     <card id="9338" file="card_9338.xml" marked="false" name="ad" owner="11054" />
  115. </stack>
  116.